home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / univspl / void_big.h < prev   
Text File  |  1998-12-09  |  54KB  |  1,126 lines

  1. #if BIG
  2. void acorf_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  3.   for (j=0; j<32; j++)
  4.     acorf(S[j], D[j], n, n); }
  5. void acort_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  6.   for (j=0; j<32; j++)
  7.     acort(S[j], D[j], n, n); }
  8. void aspec_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  9.   for (j=0; j<32; j++)
  10.     aspec(S[j], inc1, D[j], inco, n); }
  11. void blkman_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  12.   for (j=0; j<32; j++)
  13.     blkman(S[j], inc1, D[j], inco, n); }
  14. void ccdotp_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  15.   for (j=0; j<32; j++)
  16.     ccdotp(S[j], 2, S[(j+4)%8], 2, cso, n); }
  17. void ccorf_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  18.   for (j=0; j<32; j++)
  19.     ccorf(S[j], S[(j+4)%8], D[j], n, n); }
  20. void ccort_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  21.   for (j=0; j<32; j++)
  22.     ccort(S[j], S[(j+4)%8], D[j], n, n); }
  23. void cdotpr_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  24.   for (j=0; j<32; j++)
  25.     cdotpr(S[j], 2, S[(j+4)%8], 2, cso, n); }
  26. void cfft_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  27.   for (j=0; j<32; j++)
  28.     cfft(S[j], n, flg); }
  29. void cfftf_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  30.   for (j=0; j<32; j++)
  31.     cfftf(S[j], 2, D[j], 2, n); }
  32. /**
  33. cfftf_64c_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  34.   for (j=0; j<32; j++)
  35.     cfftf_64c(S[j], 2, D[j], 2, n); }
  36.  **/
  37. void cffti_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  38.   for (j=0; j<32; j++)
  39.     cffti(S[j], 2, D[j], 2, n); }
  40. void cfftsc_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  41.   for (j=0; j<32; j++)
  42.     cfftsc(D[j], n); }
  43. void convd_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  44.   for (j=0; j<32; j++)
  45.     convd(S[j], 1, S[(j+4)%8], 1, D[j], 1, n, 32, ndf); }
  46. void cpow_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  47.   for (j=0; j<32; j++)
  48.     cpow(S[j], 2, &rs1, S[(j+4)%8], inc2, &rs2, D[j], inco, n); }
  49. void crvdiv_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  50.   for (j=0; j<32; j++)
  51.     crvdiv(S[j], 2, S[(j+4)%8], inc2, D[j], 2, n); }
  52. void crvmul_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  53.   for (j=0; j<32; j++)
  54.     crvmul(S[j], 2, S[(j+4)%8], inc2, D[j], 2, n); }
  55. void cspec_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  56.   for (j=0; j<32; j++)
  57.     cspec(S[j], S[(j+4)%8], D[j], n); }
  58. void cvabs_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  59.   for (j=0; j<32; j++)
  60.     cvabs(S[j], 2, D[j], inco, n); }
  61. void cvadd_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  62.   for (j=0; j<32; j++)
  63.     cvadd(S[j], 2, S[(j+4)%8], 2, D[j], 2, n); }
  64. void cvcml_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  65.   for (j=0; j<32; j++)
  66.     cvcml(S[j], 2, S[(j+4)%8], 2, D[j], 2, n); }
  67. void cvcmla_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  68.   for (j=0; j<32; j++)
  69.     cvcmla(S[j], 2, S[(j+4)%8], 2, S[(j+2)%8], 2, D[j], 2, n); }
  70. void cvcomb_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  71.   for (j=0; j<32; j++)
  72.     cvcomb(S[j], inc1, S[(j+4)%8], inc2, D[j], 2, n); }
  73. void cvconj_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  74.   for (j=0; j<32; j++)
  75.     cvconj(S[j], 2, D[j], 2, n); }
  76. void cvcsml_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  77.   for (j=0; j<32; j++)
  78.     cvcsml(S[j], 2, cs1, D[j], 2, n); }
  79. void cvdiv_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  80.   for (j=0; j<32; j++)
  81.     cvdiv(S[j], 2, S[(j+4)%8], 2, D[j], 2, n); }
  82. void cvexp_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  83.   for (j=0; j<32; j++)
  84.     cvexp(S[j], inc1, D[j], 2, n); }
  85. void cvfill_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  86.   for (j=0; j<32; j++)
  87.     cvfill(cs1, D[j], 2, n); }
  88. void cvma_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  89.   for (j=0; j<32; j++)
  90.     cvma(S[j], 2, S[(j+4)%8], 2, S[(j+2)%8], 2, D[j], 2, n, 1); }
  91. void cvmags_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  92.   for (j=0; j<32; j++)
  93.     cvmags(S[j], 2, D[j], inco, n); }
  94. void cvmexp_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  95.   for (j=0; j<32; j++)
  96.     cvmexp(S[j], inc1, S[(j+4)%8], 2, D[j], 2, n); }
  97. void cvmgsa_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  98.   for (j=0; j<32; j++)
  99.     cvmgsa(S[j], 2, S[(j+4)%8], inc2, D[j], inco, n); }
  100. void cvml_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  101.   for (j=0; j<32; j++)
  102.     cvml(S[j], 2, S[(j+4)%8], 2, D[j], 2, n); }
  103. void cvmla_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  104.   for (j=0; j<32; j++)
  105.     cvmla(S[j], 2, S[(j+4)%8], 2, S[(j+2)%8], 2, D[j], 2, n); }
  106. void cvmov_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  107.   for (j=0; j<32; j++)
  108.     cvmov(S[j], 2, D[j], 2, n); }
  109. void cvmul_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  110.   for (j=0; j<32; j++)
  111.     cvmul(S[j], 2, S[(j+4)%8], 2, D[j], 2, n, flg); }
  112. void cvneg_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  113.   for (j=0; j<32; j++)
  114.     cvneg(S[j], 2, D[j], 2, n); }
  115. void cvphas_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  116.   for (j=0; j<32; j++)
  117.     cvphas(S[j], 2, D[j], inco, n); }
  118. void cvrcip_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  119.   for (j=0; j<32; j++)
  120.     cvrcip(S[j], 2, D[j], 2, n); }
  121. void cvreal_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  122.   for (j=0; j<32; j++)
  123.     cvreal(S[j], inc1, D[j], 2, n); }
  124. void cvsma_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  125.   for (j=0; j<32; j++)
  126.     cvsma(S[j], 2, cs1, S[(j+4)%8], 2, D[j], 2, n); }
  127. void cvsmul_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  128.   for (j=0; j<32; j++)
  129.     cvsmul(S[j], 2, &rs1, D[j], 2, n); }
  130. void cvsqrt_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  131.   for (j=0; j<32; j++)
  132.     cvsqrt(S[j], 2, D[j], 2, n); }
  133. void cvsub_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  134.   for (j=0; j<32; j++)
  135.     cvsub(S[j], 2, S[(j+4)%8], 2, D[j], 2, n); }
  136. void deq22_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  137.   for (j=0; j<32; j++)
  138.     deq22(S[j], inc1, S[(j+4)%8], D[j], inco, n); }
  139. void dotpr_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  140.   for (j=0; j<32; j++)
  141.     dotpr(S[j], inc1, S[(j+4)%8], inc2, &rso, n); }
  142. void envel_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  143.   for (j=0; j<32; j++)
  144.     envel(S[j], D[j], n); }
  145. void fftwts_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  146.   for (j=0; j<32; j++)
  147.     fftwts(D[j], m, n); }
  148. void fix4_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  149.   for (j=0; j<32; j++)
  150.     fix4(S[j], inc1, (long*)D[j], inco, n); }
  151. void fix2n_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  152.   for (j=0; j<32; j++)
  153.     fix2n(S[j], inc1, svo, inco, n); }
  154. void fix4n_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  155.   for (j=0; j<32; j++)
  156.     fix4n(S[j], inc1, (long*)D[j], inco, n); }
  157. void fixbn_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  158.   for (j=0; j<32; j++)
  159.     fixbn(S[j], inc1, (char*)D[j], inco, n); }
  160. void flt2_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  161.   for (j=0; j<32; j++)
  162.     flt2((short*)S[j], inc1, D[j], inco, n); }
  163. void flt2iq_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  164.   for (j=0; j<32; j++)
  165.     flt2iq((short*)S[j], inc1, D[j], D[(j+4)%8], n); }
  166. void flt4_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  167.   for (j=0; j<32; j++)
  168.     flt4((long*)S[j], inc1, D[j], inco, n); }
  169. void fltb_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  170.   for (j=0; j<32; j++)
  171.     fltb((char*)S[j], inc1, D[j], inco, n); }
  172. void fltbu_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  173.   for (j=0; j<32; j++)
  174.     fltbu((char*)S[j], inc1, D[j], inco, n); }
  175. void fxsl2n_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  176.   for (j=0; j<32; j++)
  177.     fxsl2n(S[j], inc1, &rs1, &rs2, svo, inco, n); }
  178. void fxsl4n_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  179.   for (j=0; j<32; j++)
  180.     fxsl4n(S[j], inc1, &rs1, &rs2, (long*)D[j], inco, n); }
  181. void fxslbn_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  182.   for (j=0; j<32; j++)
  183.     fxslbn(S[j], inc1, &rs1, &rs2, (char*)D[j], inco, n); }
  184. void gcosf_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  185.   for (j=0; j<32; j++)
  186.     gcosf(D[j], inco, &rs1, &rs2, n); }
  187. void gc